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SBEGIN RM3PCKUNP,000,RMSRMS3,<>,<PIC,NOWRT,QUAD> 


~MPARAAAAAAAALASALALALALALALALLAL ELAS SESE S ESE SEER EER RRR EES EEE ERE R ESSE ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


| 
~ 
: | 
® 
THIS SOFTWARE IS eee UNDER A LICENSE AND MAY BE USED AND gh * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pints AND WITH THE * 
INCLUSION OF THE ABOVE Sg LT ll NOTICE. THIS SOFT WARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 

® 
THE INFORMATION IN THIS SOFTWARE IS SUSJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 

® 

® 

® 

cs 

® 

ce 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


. . . . . * * . 
* Paras oneeeee eeneeeenees 


; 
° 
; 
; 
° 
; 
; 
‘ 
: 
° 
e 
; 
° 
: 
° 
: 
; 
: 
° 
od 
° 
: PARR ASARAASAASLALAALAAALAAALALELALALELESE SASS SESE RRR E REAR RRS RR ER REE ERR RARER SE SY 
° 


++ 


Facility: RMS32 index sequential file organization 
0 Abstract: 
0 This module contains the routine that is called whenever a data 
0 record that is in compressed form must be expanded. 
0 Environment: 
0 VAX/VMS Operating System internal exec routines. 
0 Author: Maria del C. Nasr creation date: 10-Apr-1981 
Modified By: 

v03-011 omeee Maria del C. Nasr 04-A 


-1983 
ange input and output registers in soutien PRMSCOMPRESS KEY, 
~ that we can use general Linkage for it. 


v03-010 MCNO008 Maria del_C. Nas 15-Mar-1983 
preserve registers 2 and 3 in ente to RMSPACK_REC and 
RMSUNPACK_REC so that the general linkage definition 
be used. “Push Paes in stack when calling RMSRECORD KEY. 


v03-009 yxoce? 31-Dec-1982 
Fixed a bug in LRMSERPAID TREND, the routine responsible for 
expanding the key of the record which follows a record that has 
been conplozely Neleted and has had its space reclaimed. If the 
number of characters the key must be expanded is greater than 
the number of characters in the key on which to base the 


SOCGSOCOCOSOCOOOOCOO COSCO OOOO OOOOSOSCSOCSOSOCSCOCOSOOOCOOOCOCOOOOOOOOOoOO 
“IPAM WN @ OOD NAUE WIN 0 ODNAU EWN SO OONOAU EWN O DOONAN EWS OOONOU EWN 


MAMMA BS BBB BEES SWI nononononononononony 3 2 
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J 10 
RMSPCKUNP 16-SEP-1984 01:09: AX/VMS Macro V04-00 Pa RMS 
VOL O08" ott 4 91:92:88 FRMS  SRCIRMSPCKUNP_MAR; 1 - (9) v04 
expansion, then the rear-end truncated character of the base 
key must be extended to provide the difference. Th 


e 
rmination as to whether this expansion would be necessary 
was being incorrectly done, and this fixes the problem. 


v03-008 TMK0006 Todd M. Kage 29-Sep-1982 
I made a mistake in TMKO005. Because the primary data records 
to be unpacked in RMSUNPACK_REC are in compressed form, AP 
must be set to 1 and not 3 Before calling RMSRECORD_KEY. 


v03-007 TMKO00S Todd M. Katz 12-Sep-1982 

Add qupeor’ for prologue 3 SIDRs. Several of the routines 
required changes to the comments, and RMSRECOMPR_KEY required 
changes to the code. RMSRECORD KEY also required AP to be set 
to 3 before calling RMSRECORD_REY instead of to 1 since 
prologue 3 data records are always in ‘compressed’ form. 


Delete the routines RMSCONV_FROM_ASCII and RMSCONV_TO_ASCII. 


-QDOOOCOOCOCOCOSOOOOOOOOCOoOO 


SOoOSOSCSCSCOOSOSOSOSOSOSOSOSOOOSOOOOSOOSOOSoOo 
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v03-006 KBT0226 Keith B. Thompson 23-Aug-1982 
ps Reorganize psects 
0 v03-005 K8T0065 Keith B. Thompson 17-Jun-1982 
8 Remove rm$sig_chars routine 
0 v03-004 TMK0004 Todd M. Katz 24-May-1982 
0 Modify the routine RMSUNPACK_REC, so that the value of AP is 
0 used as input. If the primary key of the data record to be 
00 unpacked already lies within a keybuffer, then on input AP 


will contain the number (1-5) of the keybuffer in which it 
maybe found. If, on the other hand, the primary key is to be 
extracted from its ptece in front of the data record and 
re-expanded, then AP on input has been set to 0. This is a 
performance optimization to cut down on unnecessary bucket 
passes to obtain the primary key in its expanded form when RMS 
already has the key in that form. 


v03-003 TMKO0003 Todd M. Katz 20-Apr-1982 
The routine RMSRECOMPR_KEY currently has an undocumented 
assumption that the new key is onry leading compressed never 
trailing compressed when it is called. This is pluays true 
at the primary data level where the key is not in the bucket 
but in an internal record buffer. This is never true at the 
soees level (regardless if this routine is called to do record 
sizing or the actual recompression) where the key ae or may | 
not be in the actual index bucket, and it is always full 
compressed - both front and rear. As a result, recompression 
at the index level may terminate permaturel altouing for 
corruption of the file at the index level at some later point. 
To fix this probien, remove the need for this assumption when 
n 


Co NAME WN © OOD NAU EWN CO OD NAME WIN (OOD NOAUS WN O00 
Oo Be Be Oe Oe Be Oe Oe Oe Oe Oe Oe Be Oe Os Be Oe Oe Se Oe Oe Oe Os Oe Oe Oe Oe Oe Os Oe Se Oe Oe Os Se Os Oe Os Oe OE Oe Se Oe Se Oe Oe Be Se Se Se Se Se Se Se Sete es 


SOOCOoOOCoOoOCOoOooooooSo 
OOOCCOCOOOSCSOSOOCOSOOOSSOSSSOSSOSOCOSOCCOOSCOCOCOCOOOOOOOOOOOOO 


OOOCOOCOCOOoOOoOoOoOoOoOoOooooSo 
SOOooooooooooooooooooo 


the index level is involved. We will continue to assume that 
the new ney can not be smaller then the old key when the 
primary data level is involved. 


vO3-002 TMK0002 Todd M. Katz 15-Apr-1982 
The routine RMSRECOMPR_KEY may be called either to 
fully recompress a key including elimination of newly 


Ooooooooo 
Pee 8s Ong ere et RD Ae AO Ot 50s try te ree PRA AF Se RR RH 
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compressed characters and adjustment of the bucket's 
freespace offset, or for just a size determination 
(for example during computation of the amount of space 
needed to hold two index record keys in a prologue 
file with index compression gur ing a multi-bucket split 
index update? . A size determination is signalled by RS 
(BKT_ADDR) being cleared. In such a circumstance we 
never want to reference eny field in the nonexistant 
bucket. Change this routine so this is indeed the case. 


v03-001 TMKO0001 Todd M. Katz 24-Mar-1982 
Change all references to IFBSB_KBUFSZ to IFB$W_KBUFSZ. 
v02-013 TMKO0001 Todd M. Katz 01-Mar-1982 


Made several changes to the routines in this module: 


1. Added support for rear-end truncation of keys in 
key compressed prolog 3 index buckets. This included 
changing the see of RMSCOMPRESS_KEY so that R3 
serves an an output parameter (required for data level 
but not index key compression), changing RMSCOMPRESS_KEY 
so that Re is also saved on input (and restored on output), 
and chencging RMSRECOMPR_KEY, so that index level keys 
(as well as data level Keys) will be rear-end truncated as 
yer’ et rengrans compressed when this recompression routine 
s called. 


ODOCOOOCOCCOCOCOS DOOOOOOOOOOOOOoOO 
SOOoOOCCCOOCOOCOOSCOOOOOOOCOOOOOOCoSo 


SOOO OQDOCOOCOCOOCOOOOCSOOOOOoOOoOSoO 


pole lo lo lolol ole lel ol al ole lolol ole lel olelol elo al olol eo) 


oo 
oo 
oo 
~m 

oO 


Fixed two SDELETE 4 which either prevented records in 
protog 3 files from eing deleted, or caused corruption of 
the file itself and problems in just closing it. 


a. The first problem occurred because wong of the branches 
are not unsigned when they should be. Thus, in for 
example RMSEXPAND_KEYD, this would resuit in a failure 

to reexpand the duplicate of the oer, own deleted, and 

| 


oO 
ooo 
ooo 


COOCCCoooooooooooooo 


corruption of the file. To correct this, I changed all 
branches to be unsigned when necessairy. 


= 
. 


The second problem occurred Suritos expansion of the key 
following a deleted record in RMSEXPAND_KEY. At the 

time this routine is called, the record to be deleted 
has already been removed, and its any is regteing n 
keybuffer 5. To expand the key that followed it Cif 
expansion is necessairy) we shift the contents of the 
bucket to make room for the number of characters the key 
is to be expanded by. Unfortunately, there was an error 
in the calaculation of the number of characters to shift 
the bucket contents although the actual beg inning and end 
points of the shift were correct, and the expansion was 
done correctly. The number of bytes to move included the 
number of characters to expand the trailing hey by when 
it should not have. Thus, if the bucket was fairly full, 
and the number of characters to expand the trailing key 
by fairl Large. garbage could be moved into the control 
information at the ..c of the bucket, and into whatever 
follows the bucket 1» the process's virtual seneey space. 
When the number of ciaracters to shift is correctly 


OoOooooooooooooo 
a a a ee ee a me ee ee ee ee ee ee ae ee ed ed 
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computed, not only is the deletion ae correctly 
and coe data bucket not corrupted, but several access 
violations during S$CLOSE are no longer seen! 


3. The last ghing I did was to change some RAB references in 
ft) 


OOOoCoooo 


OOCCCCCOOCOCOOSooO 


RMSPACK_REC the corresponding field in the IRAB so as 
to prevent having to reprobe the RAB at that point. 
vO2-012 PSK°002 Paulina S. 02-0¢ t-1981 


lina Knibbe 
Fix problem in RMSCONV_TO_ASC and RMSCONV_FROM_ASC 
where the stack was being handled incorrectly. 


v02-011 PSK0001 Paulina S. Knibbe 24-Sep-1981 
Fix problem in compress_rec that occurs when a 
record has less than four characters after primary 
key is extracted. 


v02-010 MCNO007 Maria del C. Nasr 24-Jul-1981 
Modify RMSUNPACK_REC to do key type conversion, and use 
key buffer 5 as the work buffer, instead of 4. Include 
dummy type conversion routines. 


V02-009 MCNO006 Maria del C. Nasr 04-Aug-1981 
Modify RMSEXPAND_KEY to return the number of characters 
expanded. Also, eliminate calculation of significant 
characters in RM$SIG_CHARS. 


v02-008 MCNOO0S Maria del C. Nasr 16-Jul-1981 
er RMSPACK_REC and RMSCOMPRESS_KEY to use the routine 
RMSFRNT_CMPR to determine the compression count of a key 
to be inserted without having to rebuild the previous key. 


V02-007 MCNO004 Maria del C. Nasr 14-Jul-1981 
bie — with compression of sequences longer than 
ytes. 


v02-006 PSK0002 Paulina S. Knibbe 10-Jul-1981 
Modify recompr_key so it dvesn't update the record 
size in index and sidr buckets. 


v02-005 MCNO003 Maria del C. Nasr 07-Jul-1981 
Fix RMSRECOMPR_KEY to deal with duplicate keys correctly. 


v02-004 MCNO002 Maria del C. Nasr 01-Jul-1981 
Modify RMSSIG_CHARS to calculate number of significant 
characters in three different modes. 


v02-003 MCNO001 Maria del C. Nasr 24-Jun-1981 
Modify RMSEXPAND_KEY to take care correctly of duplicate 
keys. Add entry point RMSEXPAND_KEYD to expand key after 
a record is deleted. 


v02-002 PSK900" Paulina S. Knibbe 
Modify \ASRECOMPR to handle index buckets also 
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45 -SBTTL RMSCOMPRESS_KEY = does front end and rear end compression on key 
++ 
; FUNCTIONAL DESCRIPTION: 

This routine is called to do ouoress ton on primary data, SIDR, and 
index level keys. It calls RMSFRNT_CMPR to determine the number of 
characters tha ‘= be front end compressed in the key, and then does 
rear end truncation of repeating chars. 

CALLING SEQUENCE: 
BSBW RMSCOMPRESS_KEY 
INPUT PARAMETERS: 
RO : key to compress, including overhead 
IMPLICIT INPUTS: 
R7 : IDX_DFN = index descriptor for the primary key 
OUTPUT PARAMETERS: 
NONE 


; IMPLICIT OUTPUTS: 
NONE 


FUN OOD NAME WIN OC OD NAU EWN O OO NAME WN O OONO UE WI OOONIO 


OOOO 0909 09 09 69 09 69 09 69 09 SI NIN SSIS SSN NIDA AAA AAA UIT & 


0 : ROUTINE VALUE: 
5 Pointer past compressed key. 
0 ; : SIDE EFFECTS: 
0 : The compressed key in the buffer, with key Length and compression 
0 280 ; count updated. 
3 Register R1 is clobbered. 
9 : Working registers: 
: Re : key size 
0 3 R : where key really starts 
3 R8 : address of key to compress 
RMSCOMPRESS_KEY:: 
013C 8F 6B PUSHR #*M<R2,R3,R4,R5,R8> > save vogieters 
60 se AZ 90 MOVB 1DXSB_KEVSZ(R7) , (RO) : initialize length to total key size 
1A0 94 95 CLRB (RO) : init compr count to 0 
52 60 9A 0008 9 MOVZBL (RO),R2 3; store key size for the future 
53 02 a0 9E 000 9 MOVAB  2(ROS,R3 ; save start address of key 
58 2 D 1 9 MOVL RB 3; parameter for next call 
51 1 9 MOVL R3,R1 3 assume first char will not match 
tres" 1 0 BSBW RMSFRNT_CMPR ; determine compression count 
0 18 1 TSTL RO ; RO equals zero when no front end 


B11 
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OE 13 a0 $f BEQL 10$ ; compression is to be done | 
1F 63 
A 06 ; Set front end compression values 
1F «307° 
01 A8 28 90 OOTF 08 MOVB RO,1(R8) 3; set compr count 
68 0 BS 0023 09 SUBB RO, (RB) 3; decrement Length by compr count 
26 50 C2 0026 ai? SUBL exe ; determine number of chars left 
Pee 50. 3=—C1 4 : 1} ADDL RO,R35,R1 3 point to last char missed 
8 D i ; 
02D 14 ; Do rear end truncation 
tt 15 ; 
002D 16 
52 D7 002D 17 10$: DECL R2 ; if one or no characters left, then 
OE 15 Oe 18 BLEQ 30$ 3; rear end trun cannot be done, branch 
eee) ae > Me > eS $13 ADDL3 = R2,R1,R0 : find last byte in ney 
70 60 91 0035 20 208: CMPB (RO) ,=(RO) 3 compare consecutive bytes 
05 12 0038 321 BNEQ 30$ :; if not equal, exit 
68 97 O03A $56 DECB (R8) ; decrement key Length 
F6 52 «©FS «6(003C~—CO 32 SOBGTR R2,20$ : if more chars left, branch 
003F $5¢ 
003F e3 5 
QO3F 326 ; At this moment F 
OO3F 327 ; (R8) = contains compressed key length 
OO3F 328 ; R1 = points to first character of compressed key 
OO3F 329; R3 - to where key should be moved 
OO3F 330; 
OO3F 331 
50 68 9A 003F 338 30$: MOVZBL (R8),RO 3 copy key Length 
635 61 50 28 0042 $3 MOVCS = RO,(R1),(R3) ; shift chars up 
2s 33 «3 Bnee $3¢ MOVL R3,R0 3 routine value 
013C 8F BA 0049 336 POPR #*°M<R2,R3,R4,R5,R8> 
05 004D 337 RSB 


16-SEP-1984 01:09: AX/VMS Macro V04-00 P | RM3F 
RMSCOMPRESS_REC = does random compressio 5-SEP-1984 95:92:38 LRMS. SRCIRMSPCKUNPMAR: 1 sige By V04- 


-SBTTL RMSCOMPRESS_REC = does random compression on data section 


++ 

FUNCTIONAL DESCRIPTION: 
This routine is called to do compression on the data section of the 
record, It searches for consecutive sequences of 5 or more 
repeating characters, and compresses them. for each sequence that is 
not compressed, it allocates a word to count the number of characters 
in the data segment, and a byte to indicate the number of characters 
compressed from the end. 

CALLING SEQUENCE: 
BSBW RMSCOMPRESS_REC 

INPUT PARAMETERS: 


R10 : Pointer to next field count 
R11 : Pointer to truncation count (end of record) 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


R3 points to one byte past end of record (byte after Last 
truncation count) 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


The data section is compressed 
Registers R1,R2,R3 are clobbered 


WORKING REGISTERS: 


3: starting point of destination buffer 

4 : starting point of non-compressed field | 

5 : starting point of possible compressed field 
8 : index register thru search 

9 : count of characters compressed 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Se Se Se Ge Ge Se Se Sse Se Ge Se Se Ge Ge Se Se Se Ge Fe Sete Se Se 


RMSCOMPRESS_REC: 


PUSHR #*M<R4,R5,R8,R9,RI0O,R11>; save registers 
ADDL3 #2,R10,R8 3; get pointer to start of data 
MOVL ; save destination buffer start addr 
k4 3 reset start point 
; are we all done? 
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0 1A SF 9 BGTRU 25$ 3; if no, branch 
0098 31 084 35 BRW 60$ 3; else, exit 
55 58 00 64 38 25$: MOVL R8,R5 ; save start point of possible match 
88 88 B61 0067 9 CMPW (RB) +, (RB) + 3 compere consecutive words 
FO 12 QO6A 400 BNEQU 20$ ; if no match, try next ones 
FE AS =FF AB O91 Bot 401 CMPB -1(R8) ,-2(R8) 3 compare characters in the word 
34 12 0071 186 BNEQU§ 208 3 no match, try next ones 
58 B Di 0073 40 CMPL R11,R8 ; if we have positioned past end | 
2g 18 8058 404 BLEQU 60s ; then we don't have enough to compress 
59 «(0 D0 0078 405 OVL #3,R9 3 a match of 4 found 
55 54 «D1 0078 «(406 CMPL = RG-RS : should we go back? 
Oc 13 QO7E 407 BEQLU 408 ; no, do not 
08 408 
080 409 ; 
t+ rt ; Move backwards to search for any characters that might have been missed 
FF AS 65 91 0080 aig $0$:  CMPB = (R5) ,=1(R5) ; compare bytes 
06 12 0084 41 BNEQU 40$ 3 no match 
55 07 0086 414 DECL RS 3; set new match point 
F459 06 F2 0088 £415 AOBLSS #6,R9,30$ : indicate another match found, and if 
008C 416 3; more left, try next 
008C 417 
o08c 418; 
Q008C 419 ; Look for the first character that does not match 
008C rt ; 
008C 421 ; 
52 5B 58 C3 0Q08C $56 40$: SUBL3 R8,R11,R2 : find characters left in record 
68 52 FF A8 38 0090 s SKPC -1(R8),R2, (RB) : find first char that does not match 
52. 50 C2 0095 424 SUBL2 R0,R2 : find how many matched 
a. oe 4 0098 425 MOVL R1,R8 ; set new starting addresses : 
FFBB 59 «52 = =03 D 0098 426 ACBW #3,R2,R9,208 : increment number matched, and if less 
GOA1 427 ; than 5, no good 
00A1 428 
0OOA1 429; 
00A1 430 3; Make sure count is not bigger than 255 bytes 
OOA1 431; 
00A1 $36 
OOOOOOFF 8F 59 D1 OOA1 43 CMPL R9,#255 
11 15 QOA8B 434 BLE ; ok, if less 
59 OQOO000FF 8F C2 QOAA 435 pee #255,R9 : find how many extra 
58 59 C2 00B1 436 SUBL2 R9_RB > back out_that many 
59 O00000FF BF DO 00B4 437 MOVL  #255,R9 : force 255 bytes 
00BB «438 
8 BB 439; 
BB 440 ; A sequence long enough has been found 
00BB 441 ; | 
0088 rr) ; 
C3 boas 443 50$: SUBL3 =R4,R5,R1 ; find Length of non-compressed 
D6 444 INCL R1 3 «section 
0 1 445 MOVW R1, (R10) ; store next field count 
8 4 446 MOVCS = =R1,(R4),(R3) ; move to destination buffer 
0 8 447 MOVB R9,(R3)+ 3; store truncation count 
DO 8 re MOVL R3,R10 3 reset new next field addr 
69 E 44 ADDL2 # R3 3; new next field area 
1 1 450 BRW 10$ 
4 451 
4 452; 
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D4 $3? ; Move the Last field if not compressed 
D4 aes 
58 54 «ODI D4 456 60S: CMPL R4,RB 3 was last — compressed? 
11 13 D7 «457 BEaLU = 708 ; exit, if yes 
51 5B 54 C D9 «=—s« 458 SUBL R4,R11,R1 3; find Length of section 
6A $1 88 00DD 459 MOVW R1,(R10) 3 store next field count 
63 64 51 £28 QOE0 460 MOVC3 R1,(R4),(R3) ; move to destination buffer 
63 94 OO0ES4 461 CLRB (R$) ; truncation count is zero 
53 D6 O0E6 ro U) INCL R3 3 point to end of record 
03 11 QOOE8 46 BRB 80$ 
53 pe C2 QOEA 464 70$: SUBL2 #2,R3 : point to end of record 
OF30 8F BA OQOED 465 80$: POPR #*M<R4,R5,R8,RI,R10,R11>; restore registers 
05 OOF! 466 RSB 3 return to caller 
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RMSEXPAND_KEY = expand a compressed key “SEP-1984 


oO 
— 


BSBW RMSEXPAND_KEYD 


or $68 -SBTTL RMSEXPAND_KEY = expand a compressed key 
OF 236 p++ 
F 471; 
: t26 ; FUNCTIONAL DESCRIPTION: 
OOF 474 ; RMSEXPAND_KEY 
OF 278 : This routine is called to expand the key of the first record 
F 477 ; in the new bucket when a split occurs. It gets as input the 
F 478 ; address of the key to base expansion on, and the address of the 
4 i 4 : new bucket with record to expand. 
OF2 481: RMSEXPAND_KEYD 
OOF rt} 3 
OOF 483 ; This routine is called to expand the key of the record which 
OOF 484 ; follows a deleted record. It gets as input the address of the 
OOF 485 ; key to base expansion on (deleted key), and the address of the 
OOF 486 ; key to expand. 
OOF 487 ; 
OOF 488 ; CALLING SEQUENCE: 
OOF 489 ; 
OOF rh 4 3 BSBW RMSEXPAND_KEY 
OOF 49¢ : 
OOF 493 ; INPUT PARAMETERS: 
OOF 494 ; 
O0F2 495 ; RMSEXPAND_KEY 
OOF2 496; RO : address of key to base compression on 
bors 135 3 Ri : address of new bucket which contains record with key to expand 
SOF 499 ; RMSEXPAND_KEYD 
Baes 500 ; RO : address of key to base compression on with compression overhead 
it 204 : R1 : address of key to expand with compression overhead 
OOF 308 : IMPLICIT INPUTS: 
OOF 505 ; R5 : bucket address of bucket which contains record deleted, and 
OOF 506 ; record with key to be expanded. 
OOF 507 ; R7 : index descriptor 
OOF 508 ; 
OOF 509 ; OUTPUT PARAMETERS: 
Oo 311 ; NONE 
OOF 21g + IMPLICIT OUTPUTS: 
OOF 514 : The given key is expanded. Record size and bucket freespace are 
OOF 15 ; updated. 
OOF 16 : 
- : 3 ROUTINE VALUE: 
OF $19 : Number of characters expanded 
OF 1 ; SIDE EFFECTS: 
oF § : NONE 
F 4 : NOTES: 
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OF 
F 


RMSPCKUNP 
v04= 


RMSEXPAND_KEY | 
This routine determines the number of characters to be added in front | 
j 
| 


OoOCoO 
as 


of a compressed key, and the characters to add. It does this in the 


OF following way: 
OF - If the compression count of the key to expand is zero, do 
F nosoing. since the key is already expanded. 

OF - If the length of the key is greater than zero, then use the 
OOF compression count as the number of characters to expand. 

OOF - If the length of the key is zero, then it is a duplicate, and 
OOF do giaple rear end truncation. 

OF - If the Length of the key is one, we can run into the situation 
OOF in which one of the characters that was front end compressed, 
OOF can be rear end truncated again. because of the order in which 
OOF compression is executed. If that is the case, then the number of 
OOF characters to expand will be less than the front end compression 
OOF count. 

OOF 
OOF RMSE XPAND_KEYD 
OOF 

OF of a compressed key, and the characters to add. It does this in the 

OOF following way: 

OOF - It only expands the key if the compression count of the key 

OOF to be deleted is less than the compression count of the key to 

OOF be expanded. 

OOF - The number of characters to be expanded is equal to the 

Obe difference between the two compression counts. 

OOF Once the number of characters to expand by is determined, all the data 


in the bucket from the key on is shifted down that number of bytes, and 
the characters are added to the front of the key from the input key. 
The key Length and compression count are updated, and the 

record size, and bucket free space courts are incremented. 


WORKING REGISTERS: 
R6 - number of characters to expand 


R8 - address of key to based compression on 
R9 = points to compression overhead of key to expand 


Bete Se Se Fe Se Ge Se Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Se Ge Se Be Be Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Ge Se Se Se Se 


This routine determines the number of characters to be added in front 
| 
RMSEXPAND_KEY:: 


io 
oO 
al 


oooooo 
oOooooco 
bs fen Ion Bena na a 
FAD QDUMIOM OP NIMPINININPININPIPONININIPYINIPYNIPINIPININY 


PUSHR #*M<R2,R35,R4,R5,R6,R8,R9>; save registers 


ODD SINE DS DDE DED DDS DS TTT BB BS BS BE AAAI AIANIIIIronnonof 
=O ODONO UNE WIN  O OD NA UNE WIN  O ODNOA UENO OD NOAM EWN 0 ODNOAUE WN OOOO 


PUP IVP LVL LIV LIV LIV LV DIVIU LULU LV LVLV LULU VSUSIU SUSU IUSUSUSUSUSUSUSUS USUI TUSSI 


37C 8F 
93 29 yi OF MOVL RO,R8 3; save address for future reference 
55 1 pO OOF MOVL R1,R5 3 set bucket address 
56 OF AS 9E OOF MOVAB BKTSC_OVERHDSZ(R5).R6 =: set _R6 to first record in the bucket 
51 Be 10 CLRL R1 ; indicate primary data level | 
rere’ 0 8 BSBW_ = RMSREC_OVHD : find record overhead 
59 56 65 4 1 ADDL3 = RO,R6,R9 ; RY points to compression overhead 
01 a9 «95.010 TSTB) =. 1R?9) : if compression count = 0, exit 
9? 12 19 BNEQ 10$ 
6 D4 O01 CLRL R6 3 no characters expanded 
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RW XIT_EXP j 
56 orn 3A 1] : 10$: AOVZBL (ROT RG ; R6 is the number of bytes we might | 
11 4 ; need to expand by 
01 a9 =—94—S 011 5 CLRB 1(R9) 3 genpresston count is zero 
. @& 2 11A § CMPB (RO) #1 3 38 ey Length one? 
$c 73 11D EQL EQ_1 ; branch if equal 
1A iP 3 BGTRU GT_1 ; branch if greater 
iH 234 ; The key Length is equal to zero. Therefore, we know we have a duplicate 
121 236 ; key. Just eliminate the characters that can be rear end truncated, and 
121 935 ; move the rest. 
ge 
; decrement the # of chars to move 
e Me 61 : 235 BLEG 6s ; if key was only one byte long, leave 
53 56 4 C1 0125 598 ADDL3 = R8,R6,R3 ; point to last char in expanded key 
73 «6 91 0129 599 20$: CMPB (RS) ,=(R3) ; compare consecutive bytes 
3 12 O12C 600 NEQ 30$ 3; exit, when no match 
FB 56 g QO12E 601 SOBGTR R6,20$ + continue if any left 
28 D6 0151 one 30$: CL R6 ; there is always one more 
6 11 4 : et BRB GT_1 
bi32 on? RMSEXPAND_KEYD: : 
O37C 8F BB 0135 607 PUSHR #*M<R2,R3,R4,R5,R6,RB,RI> ;save registers 
58 50 7D $139 608 mMOvVa RO,R8 ; save input for future reference 
D4 013C 609 CLRL 3 no chars expanded 
01 49 «6001 AB O91 (013 610 CMPB 1(R8),10R9) 3 compare compression counts 
1 O128 611 BGEQ EXIT_EXP ; continue only if deleted < next 
56 01A9 01 AB as 0145 361 SUBB 1(R8BY,1(R9) RG 3 set R6 to number of bytes to expand 
01 AD 01 AB 90 0148 8 MOVB 1(RB),10R9) 3; compr count is that of deleted rec 
69 95 0150 614 TSTB (R9) 3; see if key len is zero 
08 12 0152 615 BNEQ 10$ 
O184 eI 
: Th th i l to zero. Therefore, we know we have a duplicate 
6134 gi 3 ty Aa A py dt and key should be equal to the what the 
0154 620 ; key being deleted contains. 
O18 632 | 
56 68 QA B16 ° § MOVZBL (R8B),R6 3; number of characters that will be 
58 2 c0 B12, 625 ADDL2 #2,R8 ; skip compr ovhd, not needed | 
C 11 OSA 6 § BRB GT_1 
Be O58 : | 
Hi $0 Laue cvtez of tarncars pe bev pret te exented ts sroser shen St | 
3 aracters in the key on which to 
3 é : ee eremcates character must be extended to provide the difference. 
15€¢ 633 * | 
: ° 3 are the number of chars to exp 
68 56 91 136 ° : 10$ CMPB R6, (RB) cones Aang Bangs pet | 
22 18 OUSF 6 $ BLEQU§ OK 
161 6 | 
161 638; | 
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truncated characters to make life 


er. 
rede y (R8) ,RO ; make RO point to trun char 
ADDL2 R8,RO 
INCL RO 
CLRL R1 ; R1 will contain number of chars needed 
SUBB (R8) , IDX$B_KEYSZ(R7) ,R1 
SUBB2 = 1(RBS ,R1 
ADDB2 = R71, (RB) ; update key kength 
PUSH RS 3 must save R 
MOVC + (aah patna cians : extend the trun char 
POPL n 3; restore R5 
ADDL2 #2,R8 : skip compr ovhd, not needed 
CMPB. ss (R9) , #1 : is ey Length one? 
BGTRU GT_1 ; branch if greater 


If the key length is one, then there is 
characters that were 
character 


the eapendes key 
last character of the compressed 


is reached. For each match, the number 


EQ_1:  ADDL3 R8,R6,R2 ; 
10$:  CMPB =(R2),2(R9) : 
BNEQ  GT_1 ; 
SOBGTR R6,10$ ; 
GT_1: ADDB2 R6,(R9) : 
ADDW2 R6,-2(R9) ; 
MOVAB 2(R9),R1 : 
MOVZWL BKTSW_FREESPACE(RS),R3 ; 
ADDW2 R6,BKTSW_FREESPACE(RS) : 
ADDL R>.R3 ; 
SUBL3 R1,R3.R ; 
ADDL3 = R6.RI_R : 
MovC3 RO, (RI), (R3) : 
MOVCS = R6, (RB), 2(R9) : 
EXIT_EXP: 
MOVL  R6,RO ; 
POPR #*A<R2,R3.R4,R5,R6,RB,RI>; 


front end compressed are equal to the rear end truncated 

and therefore, they should not be added to the a of the a 

To determine this, we position to the last character front en 

and start Sovlne back, comparing each character with the 
ey, until a non=-match is found or the first 


; point past last char that was front 


; increment Length b 
; increment record size 

; point to first character in key 
; after extractin 
; offset, adjust 


; number of bytes to shift down 
; to where they should be moved 
; shift th 
; add the 


the possibility that some of the 


compressed in 


of bytes to expand by is decremented. 


end compresse 

compare characters 

if not equal, exit loop 

decrement number to expand, and continue 


number to expand 
current freespace 


t to its new value 


find end of bucket address 


em 
characters expanded 


return number of chars expanded 
restore registers 


SSS 
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FUNCTIONAL DESCRIPTION: 
This routine is called when a data record must be transformed from 
expanded form to compressed format. The routine is divided in two 
sections. The first part moves the primary key to the beginning of 
the sutput buffer, and compresses it if necessary. The second section, 
moves the data section doing compression when possible. 
CALLING SEQUENCE: 
BSBW RMSPACK_REC 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
R5 : BKT_ADDR to determine if insert is at een of bucket 
: REC_LADOR = address where record is to be inserted in the bucket 

R? : IDX_DFN = index descriptor for the primary key 
: RAB address 
R9_: IRAB address for L_KEYBUF, L_RECBUF, L_LST_NCMP, L_RBF, W_RSZ 
R10: IFAB address for W_KBUFSZ 
OUTPUT PARAMETERS: 

RO : Actual output record size 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Record size 
SIDE EFFECTS: 


The packed record is in the output buffer. 
Register Rl is destroyed. 


WORKING REGISTERS: 
(SP) : stores REC_ADDR 
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1FFC gf BB PUSHR #*M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11,AP> 
6 0D PUSHL R6 : save REC_ADDR for the time being 
50 68 A9 00 MOVL Tite] RECBUF (R9) ,RO 3 set up output buffer pointer 
06 E1 BBC #1DX$0_KEY_COMPR,- 3; if key not compressed, branch 
O3 1C A IDXSB-FLAGS(R7),10$ 
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50 02 C0 Hi reg ADDL2 #2,R0 ; skip key compression overhead : 
1D 749 ; 3 
1D 0 ; Prepare to extract the primary key from the user's buffer, and place it in ; 
109 ; 1; the record buffer , Pygne , : 
By | 
56 58 Ad +4 109 754 108: MOVL IRBSL_RBF (RI) RO 3; change REC_ADDR to point to user's buf : 
C 93 D 100 755 OVL #3,AP ; indicate no rec overhead and expanded 3 
0 Bp 1E 756 PUSHL ; output buffer pointer $ 
FE1B" 1E 757 BSBW RMSRECORD_KEY 3 move primary key out 3 
of 9e C 1E 7 8 ADDL2 4#4,SP 3 
0 OD 1E 7 MOVL RO,R3 3; beginning of data section 3 
56 8ED 1€B 760 POPL R6 ; restore REC_ADDR to pos of insert $ 
06 €1 OTE 761 BBC #IDXSV_KEY_COMPR,- ; if key not Compressed, branch F 
OA 1C A7 1F 066 IDX$B_FLAGS(R7) ,20$ 3 
1F 76 F 
1F 764 ; 3 
1F 765 ; Call routine to do Sonpredeten on the tlie ag | key 3 
git £66 : RO - address of key to be compressed, including overhead : 
1F3) 768 : 
50 68 A9 00 OIF 769 MOVL IRBSL_RECBUF (R9) ,RO 3; key to be compressed 3 
FEO6 30 OF 770 BSBW RMSCOMPRESS_KEY é 
53 DO OFA 771 MOVL RO,R3 3 store value returned 3 
O1FD oe 3 
O1FD 773; : 
aire oe ; At this moment R3 is pointing tr where data section should begin. : 
pire £78 ; 
53 DD OD 777 208: PUSHL R3 3 save start of data section 3 
51 58 A9 00 OFF 778 MOVL IRBSL_RBF (RI) ,R1 3 set up pointer to input record 
52 56A9 3C€ 0203 779 MOVZWL IRBSW_RSZ(R9),R2 3; move size to a long word 
Be we oes 07 780 ADDL3 = R2,R1,R11 3; determine end of input record 
07 ~«€1 0B 781 BBC #1DX$V_REC_COMPR,- ; branch if record not compressed 
03 1C A7 0D ree ZOKSS_FLAGS(R7) .408 
53 02 co 0 19 78 ADDL2 #2,R3 3; skip next field count 
5B «(51~—Cé=#iw 1 1 784 40$: CMPL R1,R11 3: are we finished? 
24 3 16 785 BGEGU 70$ : branch if yes 
50 S58 A9 OD 1 786 MOVL IRBSL_RBF (RI) ,RO :; input buffer address 
54 «51 ? 1¢ 86787 MOVL p 3; current byte in input buffer | 
FDDE' 30 O21F 788 BSBW §RMSCHECK_SEGMENT : find out if byte belongs to prim key 
05 5 E9 g 789 BLBC RO,50$ 3; branch, if does not 
a. - co 790 ADDL2 3; skip key segment 
E 11 8 791 R3 ; try again 
A 998 
6 n ope 3; Found a data segment, make sure it is not past the input buffer end 
A 796° 
58 38 D1 A 599 50$: CMPL R2,R11 :; is data segment too long 
1F dD «79 BLSSU 608 : branch, if it is not 
52 B OD F 79 MOVL. R11,R2 : otherwise, force the exact end of rec 
5A 1 ¢ 0 60$: suBL 3 R1,R2,R10 ; find Length of data segment to move 
63 61 5A 1 MOVCS R10, (81), (R3) > move 
o 1 A § BRB 40$ 3 next one 
A 8ED0 C 70$: POPL R10 3 save start of data section in R10 
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07 ~+«€1 3F BEC #IDX$V_REC_COMPR,- 3; branch, if record should not 
06 1C A7 ra) 1DX$B7F LAGS (R7) .80S : pte Syed seme: 
: Set in Bye gt et yt } RMSCOMPRESS_REC 
5 RY = start data s sectte tion 
rr ; R11 = end of ye - section 


Pane 
BEES 
3 DOO 


DONAUES WN" OVOONOUS 


44 
5853 00 44 MOVL R3,R11 
FEOS 47 BSBW = RMSCOMPRESS_REC ; compress data section 
50 53 68 a9 (C3 4A 80$: SUBL3 IRBSL RECBUF(R9),R3,RO ; compute total record size 
1FFC SF 0 oF 8 POPR #°M<R2,R3,R4,R5,R6-R7,RB-RI,R10,R11,AP> 
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~SBTTL RMSRECOMPR_KEY = recompresses a compressed key 


oa 
++ 


FUNCTIONAL DESCRIPTION: 


This routine is called to do recompression on the primary key in 
pecaery data buckets or the key in SIDR or index buckets. 

hen a new record is added, the record that follows it might need 
modification in the primary key compression. This procedure is 
done by the this routine. 


Inaddition, this routine may be called to assist in the sizing of a 
<p for example, to assist in the sizing of the second key of a 
multi-bucket split index update. In such a case, we never want to 
actually remove any newly soupresses characters or adjust the 
bucket’s freespace pointer (BKT_ADDR will be 0). 
A basic assumption that has been made is that the new key can never be 
smaller that the old nae when a primary data level recompression is 
involved. This restriction does not hold for the index or SIDR Level 
(or for size determination which is at the index or SIDR level), and 
the new key may indeed be smaller than the old key. 

CALLING SEQUENCE: 
BSBW RMSRECOMPR_KEY 

INPUT PARAMETERS: 


RO : new record address pointing to compression overhead 
R1 : next record address pointing to compression overhead 


IMPLICIT INPUTS: 


RS : BKT_ADDR - BKTS$W_FREESPACE 
R? : IDXTDFN = IDX$B_REYSZ 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
Record size is updated. 
If this is not a size determination, then the newly 
compressed characters of the next record will be removed 
and the bucket freespace will updated. 


ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


RMSRECOMPR_KEY:: 


es 
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roe 
v04 RMSRECOMPR_KEY = recompresses a compress 5-SEP-1984 


4 77 3 
O33C 8F 4 4 PUSHR #*M<R2,R3,R4,R5,R8,R9I> |; save registers : 
0; : 
| : First check for any inconsistencies : 
> ae) 3 4 MOVL R1,R2 ; set pofoter to key length ; 
81 B 5 TSTB 3s (RAD + : if the length of the next key is 0, : 
rte 5D § BEQL EXIT ; then we are doing an update ; 
- nm °6 6G SF MOVL R1,R3 3 set pointer to compression count : 
80 9 62 8 TSTB = (RO) + ; if length of new rec is 0, then it is : 
6F BEQL EXIT : one of dup chain, do nothing ; 
81 80 91 96 90 CMPB (RO)+,(R1)+ 3 compare compression counts ; 
6A 12 6 91 BNEQU) EXIT : if new < next, then something wrens ; 
68 8 : if new > next, then no compr possible 3 
68 9 ; 
eB (BOS ; 
0 re 38 ; Get pointer to truncated character in each key : 
68 898° : 
28 $¢ Hr 8 68 344 tty ige) ,n6 ; RB = points to trun char of next key : 
59 FE AO 9A Q of 901 MOVZBL -2(RO),R9 ; RY = points to trun char of new key : 
59 23 CO 0275 90 ADDL2 RO,R9 3 
9 D7 0278 90 DECL Rg 3 
O57a 908 
0 A 308 : Start comparing chars to see if compression can be done ; 
7A «908 * ; 
61 60 91 7A 909 10$ CMPB (RO), (R1) 3 compare chars 3 
2c 4612 «0270 6910 BNEQ 30$ ; if no match, branch : 
9 96 8 7F 4911 INCB (R3) 3 increment compression count 3 
58 1 o1 81 aig CMPL R1,R8 3 at truncated char? 3 
04 13 0284 91 BEQL §46=s-«20$ : branch if yes : 
9¢ 97 § $ 914 DECB (R2) ; decrement key Length 3 
1 pd6 0 HH 312 INCL R1 3 get next char : 
59 50 O01 ; A 917 20S: CMPL RO,RO 3 at truncated char of new? : 
18 «12 D 38 BNEQU 25§ ; No, go on 3 
55 o of 920 TSTL R5 ; if this is just a size determination : 
oe +4 4 1 BEQL 10$ 3 then continue the comparison ; 
OC AS 89 3 9 ; BISB3 BKTS$B_LEVEL(RS),- : if this is an index bucket or a SIDR F 
54 01 A5 96 924 BKTS$B~INDEXNO(R5) .R4 ; bucket then also continue the : 
DOF 12 3 5 BNEQU 10% 3; comparison : 
20 a7 «©63—oO71 9B 9 5 CMPB (R3), IDXSB_KEYSZ(R7) ; are all chars compressed? ; 
D9 —CédA#ér; ° 4 8 BLSSU 10% 3 continue if not : 
9¢ 94 § Al 930 CLRB (R2) ; set length to zero, we have a dup : 
1 06 a 931 INCL RI ; skip last char ; 
046 ~=«— A 9 ¢ BRB 30$ 3; all done... 3 
A? 93 3 

| 

| 

} 
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50 06 934 25$: INCL y Not at end yet, continue comparing 
CF 11 4 ; BRB 10$ ; real characters 
55 b 937 30S: TSTL R5 ; if this is just a size determination 
ee 3 3 BEQL EXIT 3; then we are done 
53 (96 age INCL R3 3 point to beginning of key 
os hn i ¢ ans CMPL R1,R3 ; if the same, no compression done 
3.6 43 BEQL = EX {iT 
50 O04 A5 3€ 6 945 MOVZWL BKTSW_FREESPACE(R5),RO ; compute start of free space 
73 33> 0 946 ADDL R5,R0 
50.051 Ce 0 947 SUBL R1,R0 3 find # of chars to move up 
ae} 53 ¢3 0 948 SUBL R3,R1,R2 : find # of chars compressed 
04 A5 52 A2 8 rH SUBW2 R2,BKTSW_FREESPACE (RS) 3; update free space count 
Oc AS 695 «(O 951 TSTB BKTSB_LEVEL(R5) ; update the record size field only 
046 #12 8 o28 BNEQU 35$ ; in the case of a data bucket 
FC AS 52 A2 QO 954 SUBW R2,-4(R3) 3; update record size 
63 61 50 28 te 35$: MOVC RO, (R1),(R3) ; shift chars up 
033C 8F BA 0 957 EXIT: POPR #*°M<R2,R3 
05 0 958 RSB 
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| 
| 
»R4,R5,R8,R9> ; restore registers 
| 
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+ 360 -SBTTL RMSUNPACK_REC = unpack compressed record 
DA 306 p++ 
DA 965; | 
0 . ace ; FUNCTIONAL DESCRIPTION: 
0 DA 308 3 This routine is called when a data record must be transformed from 
DA 967; compressed format to ‘'normal’’ format. The routine is divided in two 
O2DA 968 ; sections. The first part moves the primary key segments to their 
' 8 DA 969 ; correspond io place in the output buffer. The second section examines 
DA 970; the data fields and moves them to the output buffer, expanding them at 
8 DA 971; the same time. 
DA af8 3 
O2DA 9735 ; CALLING SEQUENCE: 
O2DA 974 ; 
O2DA 975; BSBW RMSUNPACK_REC 
O2DA 976; 
O2DA 977 ; INPUT PARAMETERS: 
O2DA 978; 
O2DA 979; RO : output buffer address 
O2DA 989 ; Ri ; size of input record 
O2DA 981; 
O2DA oes 3 IMPLICIT INPUTS: 
O2DA 983; 
O2DA 984 ; R6 : REC_ADDR - pointer to record in the data bucket to be unpacked 
O2DA 985 ; past record size word 
O2DA 986 ; R9_: IRAB address for key buffer address 
O2DA 987; R10: IFAB address for ae buffer size 
O2DA 988 ; AP : number (1-5) of keybuffer in which primary ney maybe found 
O2DA 989 ; _Cin expanded form without compress ion overhead | 
BSA p44 3 0 if key must be extracted and then re-expanded 
O2DA 992 ; OUTPLT PARAMETERS: 
O2DA 993 ; ; 
O2DA 994; RO : Actual output record size 
O2DA 995 ; 
O2DA 996 ; IMPLICIT OUTPUTS: 
O2DA 997 NONE | 
O2DA 998; 
O2DA 999 ; ROUTINE VALUE: 
O2DA 1000 ; 
O2DA 1001 ; Record size 
O2DA ISR6 3 
BgdA 199 3; SIDE EFFECTS: 
O2DA 1004 ; : 
O2DA 1005 ; The unpacked record is in the output buffer. 
O2DA 1308 3 Registers R1 are clobbered 
O2DA 1007 ; 
Bsa 43 3; WORKING REGISTERS: 
ay 1010 ; R1 : will always be the index pointer to the input buffer | 
O2DA 1011 ; R3 : index pointer to the output buffer 
O2DA 1 \¢ 3 8(SP)  : size of input record | 
DA 1013; 4(SP) z meus buffer address 
. ie 3 (SP) : number of bytes transferred to output record | 
O2DA 1016 ; First section (move primary key): | 
| 
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DA 1017 ; Rg : index descriptor pointer 
DA 1 13 ; R9_: number of segments in key 
DA 1019 ; R10: key Length 
1 | y 3 R11: segment Length 
e | 
DA 1 4 : Second section (move data fields): 
DA 1023; R2 : Parameter returned by RMSCHECK_SEGMENT | 
DA 1024 ; R8 : Truncation count for the field in the compressed record 
8 DA 1025 ; R9_: Points to byte past the input record 
DA 10 § 3 R10: Length of field in compressed record 
O2DA 1027 ; R11: Length of data field to be moved 
8 DA 1028 ; 
DA 1029 ;-- 
O2DA 1030 
O2DA 1031 RMSUNPACK_REC:: | 
O2DA 1038 
BsDA 1035 ; 
O2DA 1034 ; Move and expand key section - this is done by first moving the key into key 
QO2DA 1035 ; buffer 5, performing all necessary reconstrucion, and expansion, und then, 
O2DA 1036 ; calling the type conversion routine to convert each segment to its ASCII 
O2DA 10357 ; equivalent, and move it to its place in the record. 
O2DA 1038 ; 
O2DA 1039 
1FBC 8F BB O2DA 1040 PUSHR #*M<R2,R3,R4,R5,R7,R8,R9,R10,R11,AP>; save registers 
7E 50 7D OQ2DE 1041 mMOVQ RO,-(SP) : save size of input record and 
02E1 1006 3 output buffer address 
00 DD pce} He PUSHL #0 3 no bytes transferred so far 
7E D4 OQ2E3 1045 CLRL -(SP) 3 get key descriptor for primary key 
FD18" 30 O2E5 1046 BSBW = RMSKEY_DESC 
5E 04 CO O2E8 1047 ADDL2 #4,SP 
O2EB 1048 
5C DS O2EB 1049 TSTL A : if primary key must be extracted 
18 13 OSEe Wat BEQL 10$ ; and re-expanded then go do it 
51 D4 O2EF 1926 CLRL R1 ; if the primary key has already been 
5C D7 OQO2F1 105 DECL AP 3: extracted and re-expanded into a 
08 13 O2F3 1054 BEQL 5$ ; keybuffer, then setup ri with the | 
51 00B4 CA 3C€ O2F5 1055 MOVZWL IFBSW_KBUFSZ(R10),R1 ; address of that keybuffer (using 
51 5C C& O2FA 1056 MULL AP,R1 ; AP which contains the number of the | 
51 60A9 CO Bere 1057 5$: ADDL IRBS$L_KEYBUF (R9) ,R1 ; keybuffer), and load into r10 the 
5A 20 A? 9A Q301 1058 MOVZBL IDX$B_KEYSZ(R7),R10 ; size of the primary key 
| em Bene 1923 BRB 15$ ; before continuing | 
50 00B4 CA 3¢ $307 1061 10$: MOVZWL IFBSW_KBUFSZ(R10),RO ; determine destination buffer 
50 04 C4& Q30C 1906 MULL R 3 parameter for next call (kbuf5) 
50° 6049 0 O30F 1963 ADDL2 IRBSL_KEYBUF(R9) ,RO | 
5c 01 00 313 1065 MOVL #1,AP ; indicate no record overhead/compr 
50 43 $18 1906 PUSHL R ; output buffer pointer 
FCE5S' 0 18 106 SBW RMSRECORD_KEY 
ye 8 @ baie 1308 ADDL2 #4,SP 
5 20 A? 9A OE 1070 itty IDX$B_KEYSZ(R7) ,R10 3 get key size Megpe 
50 SA (C3 $¢ 100) SUBL R10,R0,R1 ; Tind pointer to beginning of buffer 
59 16 AZ? QA $356 1098 15$: MOVZBL IDXS$B_SEGMENTS(R7),R9 ; determine number of segments 
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IDX$W_POSITION(R7) ,R8 


OmnMlOOW 
OMe rOoOrm 


Move data section 
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RMS.SRCIRMSPCKUNP.MAR; 1 
; setup pointer to pos/size/type array 


get Sogeent position 

add output buffer start address 

get segment Length 

position past segment type 

move the segment into output buffer 
if more segments, continue 

set num of bytes transferred so far 


Regtetere are initialized with the following values: 


beginning of data section 
nning of output buffer 
of input record 


Sete Ge Ge Ge Ge Ge Ge 


; beginning of input buffer to R1 


; check if key compressed 
; if yes, get length from record 
; skip compression count 


; add to rec addr 


ViOUPFPOPY PViovimiwrour 
COW NNT TM PWS OMNI 
OW MOCO -oCVOoOoO Mo 
eao-w o-0o°o-ocoer —O 


; add fixed key size if not compressed 
; move output record addr to work reg 


; add size to rec addr giving end of rec 


; check if record compressed 
; if not, compute size of data section 


; store next field count 
; truncation count should equal 0 


; Loop thru record identifying data fields and moving them to output buffer 


uw 
~o 

So 

So 
NOMOuM@mowu 
Ww OW" 
=U 


COWON PW 


[=] 
oO 


at end of record? 
continue if not 

return, otherwise 

is next field count 0? 
continue if not 

is truncation count 0? 
cont inue ot 

input record is empty now 


rameters for RMSCHECK_SEGMENT call 
- start address of output buffer 
R4 - current byte in the output buffer 


SOOCOOCOCOSOCOGOOOCOCOCO COCO OCOCOCOOOSSSOCOSCSCOOOOOCOCOCCOOOCOOOOCOOOOOOO 
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SOOO NA NEW 9 ODNAU EWN 9 ODNA VE WIN 9 ODNAUE WN O OONAUS WAR OUWOONOUI 
Sete tees 


AAAAIAI AIA AIAIAIAI AINA NIN WIIANAI 
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R3_R4 
RMSCHECK_SEGMENT 


:; find out if data belongs to a key seg 


F 12 
i 3 dat B49 91:09:58 AX/VMS Macro V04-00 Page 24 | 
RMSUNPACK_REC = unpack compressed record 5-SEP-1984 16:24: RMS.SRCIRMSPCKUNP MAR; 1 (8) 


RMSPCKUNP 
v04-000 


05 28 E9 4 1131 BLBC RQ. 208 ; branch, if it is a data field | ; 

53 C0 1 § ADDL2 = R2,R ; otherwise, skip key segment : 
DbBédm’YI 95 11 BRB MOVFLD 3 try next field ; 

37 1138 

97 11 § : The data we are pointing at with R3 is a non-key field. Move it to the : 

3; outpur buffer. : 

97 11 t buff : 

aS al 

os 32 33 oo ; 97 1140 208: SUBL3) =—-R3,R2,R11 ; find length of segment to move | ; 
5A 5B 01 0398 1141 CONT: CMPL R11,R10 3 compare data len with next fld count . 

E if 8 af 1128 BGEQ 30$ :; br, if not enough data in input field : 

63 61 Sle AO 114 MOVC R11,(R1),(R3) ; move data lengt : 
SA 58 cs O3A4 1144 SUBL R11,R10 3; find characters left in next field : 

=c wm ft 8 A? 1145 ADPL2 R11, (SP) ; increment number of bytes transferred | : 

5B D4 O3AA 1338 CLAL R11 ; all of data moved : 

C4 811 QO3SAC 114 BRB MOVFLD 3; find next segment ; 

sf o Banh 1138 30$: iste ee ; only move nxt field if not equal to 0 : 

63 61 SA 28 0382 1150 MOVC3 R10,(R1),(R3) 3 move next field amount of data ; 
5B SA C2 0386 1151 SUBL R10,R11 ; find how many left in data length ; 

6— SA CO 0389 1136 ADDL R10, (SP) ; increment number of bytes transferred : 

SA D4 O38C 115 CLRL R10 3 set next field count to zero : 

07 +€1 QO3BE 1154 BBC #1DX$V_REC_COMPR,- $ 

03 1C A7 bac8 1155 IOX$B- FLAGS(R7) ,40$ ; check if record compressed : 

58 61 QA O03C3 1156 MOVZBL (R1),R8 3; store truncation count, if true F 

58 5B D1 03C6 1157 40S: CMPL R11,R8 3; compare data length with trun count ; 

11. 1E& QO3C9 1158 BGEQ 50$ : branch if using trun count (smaller) s 

63 SB FF Al 61 #=OO0O 2C OQO3CB 1159 MOVC #0,(R1),-1(R1),R11,(R3) ; fill output buffer with trun char 3 
58 5B C2 bap8 1160 SUBL R14,R8 3 truncation count is reduced : 

6—€ 5B CO OQ3D5 1161 ADDL R11, (SP) 3; increment number of bytes tranferred | 3 

58 D4 0308 1108 CLRL R11 ; data length should equal zero | 3 

96 11 O3DA 116 BRB MOVFLD 3 try next field ; 3 

63 58 FF Al 61 OO 2C O3DC 1164 50$: MOVCS #0,(R1),-1(R1),R8,(R3) =; fill output buffer with trun char 3 
5B 58 C2 O3E3 1165 SUBL2 R8,R11 3; reduce data length : 

6— 58 CO O3E6 1166 ADDL2 = R8, (SP) 3; increment number of by*es transferred 3 

58 D4 O3E9 1167 LRL R8 ; set truncation count to zero 3 

51 D6 O3SEB 1168 INCL R1 : get to next field addr 3 

59 51 Di O3ED 1169 60$: CMPL R1,R9 : are we all done? F 

0B IE OQ3FO 1170 GEQU = END 3; branch if yes ; 3 

SA 81 3¢ bars 110) MOVZWL (R1)+,R10 3 store ye field count, and point : 

; to data area 3 

5A D5 O3F5 1193 TSTL R10 ; is next field count zero? | 3 

A 1 F7 1174 BNEQ CONT ; branch if not, more to move : 

5 i) F9 1175 TSTL R8 3; is truncation count zero? | : 

C9 «12 bere 1128 BNEQ 40$ ; branch if not, more to move : 

50 8EDO ii 1178 END: POPL RO 3 return size of output record : 

SE 08 CO 0400 1179 ADDL2 #8,SP 3 pop output buffer addr and : 

403 1180 ;__input record size : 3 

1FBC 8F BA 3 1% 1 pore #*M<R2,R3,R4,R5,R7,R8,R9,R10,R11,AP>; restore registers : 

Be08 1188 : 

408 1184 . END : 
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RMSKEY BESC eeeeneee =X 
RMSPACR_REC 000001C7 RG 
RMSRECOMPR_ KEY 00000254 RG 
RMSRECORD REY eeeeeeee xX 
RMSREC_OVAD eeeeeeee x 
RMSUNPACK _REC 000002DA RG 


a 

a 
feleleleleleleleleleleloloalo) 
and an ad cd and ad an ae a cd ed a ed ed 


$$.PSECT_EP = 00000000 
SSRMSTEST = 1A 
SSRMS_PBUGCHK = 49 
SSRMS_ TBUGCHK = 
SSRMS_UMODE s S 4 
BKT$B~INDEXNO = 00000001 | 
BKTSB_LEVE = 0000000C 
BKTS$SC_OVERHDSZ = 390 E | 
BKTSW_FREESPACE = 00000004 
CGr 0000398 R 01 
ae sioriep a8 
a ih nt 
EXIT_EXP OOOOIBF R 01 
GT 00000198 R 01 
1DX$B_FLAGS = 0000001C¢ 
1DX$B_KEYSZ = 00000020 
1DX$B8_ SEGMENTS = QO00001E 
IDX$V_KEY_COMPR = 454 444: 
IDX$V_REC_COMPR = 0000000 
1DX$W~POSTT = 0000002C¢ 
1FBSW_KBUF = 00000084 
IRBSL_KE YBUF = 00000060 
IRBSL_RBF = 00000058 
IRBSL_RECBUF = 00000068 
IRBSW_RSZ = Boon StS 
MOVFLB 00000372 R 
OK 00000183 R 
RMSCHECK_ SEGMENT aeeeeeee | 
R RESS_KEY 00000000 RG 
RMSCOMPRESS REC 0000004E R 
RMSE XPAND_KEY QOO000F2 RG 
RMSEXPAND_KEYD 0000013 
RMSFRNT_ CAPR tteeeene 
} 


power ee ee mee see ee 


PSECT name Allocation PSECT No. Attributes 

00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000408 ( 1032.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC QUAD 
00000000 ( 0.) O02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


RM3I 


< 
oO 
> 
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fom aene ee em me So ee em co} 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 0:00.07 0:00:00.86 
Command processing Me sae 8 0:00:03-09 
as H : ° : H e 
Symbol table sort 8 $300; 0.84 0:00:01.46 
Pass 2 21 8: 8: §°3 e: 9: 9.71 
Symbol table output 6 0:00:00. :00: 8-8 
Psect synopsis output 00: B88 - 0:00:00.0 
Cross-reference output 00:00:00. es BY 
Assembler run totals 63 00:00:11.96 00:00:35.9 


The working set Limit was 1500 pages. . 

45006 bytes (88 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 594 non-local and 44 local symbols. 
1184 source Lines were read in Pass 1, produc ing 15 object records in Pass 2. 

14 pages of virtual memory were used to define 13 macros. 


' 
$¢emroeewwn te sen etree erence e once = + 
Macro Library name Macros defined 
-$255$DUA28: CRMS .O8JJRMS.MLB; 1 6 
_$255$DUA28: (SYS.OBJJLIB.MLB;1 0 
$255$D0UA28: CSYSLIBISTARLET.MLB:2 3 
TOTALS (all Libraries) 9 


658 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RM3PCKUNP/OBJ=OBJ$:RMSPCKUNP MSRC$:RM3PCKUNP/UPDATE=(ENHS: RMSPCKUNP) +E XECML$/LIB+LIB$:RMS/LIB 
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